clear
%cd ('W:\Projects\Hoffmann_Shcherbakova\Programs_RES')
format('bank');

%%Table 5 
display('     Table 5: Risk Sharing, Banking Deregulation and Small Businesses')
display('               mu_k=shapi ')
display('early deregulation')
display('low mu_k')
state_group='LowHalf_Shapi_64_75_dereg';
s=1;
T=21;


Main_preparation
M=[ones(size(dgsp)),dy(s:s+T-1,1:K)];
NL=[];

 if ~exist('estimator')
     estimator='OLS';
 end
 if ~exist('channel')
     channel='all';
 end
 
 channel='betaU';
 
Main

display('early deregulation')
display('high mu_k')
state_group='HighHalf_Shapi_64_75_dereg';
Main_preparation
M=[ones(size(dgsp)),dy(s:s+T-1,1:K)];
NL=[];
Main

display('late deregulation')
display('low mu_k')
state_group='LowHalf_Shapi_64_75_notdereg';
Main_preparation
M=[ones(size(dgsp)),dy(s:s+T-1,1:K)];
NL=[];
Main

display('late deregulation')
display('high mu_k')
state_group='HighHalf_Shapi_64_75_notdereg';
Main_preparation
M=[ones(size(dgsp)),dy(s:s+T-1,1:K)];
NL=[];
Main

display('==========================================')
display('               mu_k=SBE ')
display('early deregulation')
display('low mu_k')
state_group='LowHalf_SBE77_dereg';%
s=1;
T=21;
Main_preparation
M=[ones(size(dgsp)),dy(s:s+T-1,1:K)];
NL=[];

Main

display('early deregulation')
display('high mu_k')
state_group='HighHalf_SBE77_dereg';
Main_preparation
M=[ones(size(dgsp)),dy(s:s+T-1,1:K)];
NL=[];
Main

display('late deregulation')
display('low mu_k')
state_group='LowHalf_SBE77_notdereg';
Main_preparation
M=[ones(size(dgsp)),dy(s:s+T-1,1:K)];
NL=[];
Main

display('late deregulation')
display('high mu_k')
state_group='HighHalf_SBE77_notdereg';
Main_preparation
M=[ones(size(dgsp)),dy(s:s+T-1,1:K)];
NL=[];
Main
